﻿Public Class FormModificarUsuario
    Private _idUsuarioAModificar As Integer
    Private _miCampeonato As Campeonato
    Property idUsuarioAModificar As Integer
        Get
            Return Me._idUsuarioAModificar
        End Get
        Set(value As Integer)
            Me._idUsuarioAModificar = value
        End Set
    End Property

    Private Sub FormModificarUsuario_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = FormEntrada
        Me._miCampeonato = New Campeonato()
    End Sub

    Private Sub BtnBuscarUsuarios_Click(sender As Object, e As EventArgs) Handles BtnBuscarUsuarios.Click
        FormBuscarUsuario.Show()
        FormBuscarUsuario.formDestino = "FormModificarUsuario"
    End Sub

    Private Sub btnModUsuario_Click(sender As Object, e As EventArgs) Handles btnModUsuario.Click
        Dim telefono As Integer
        Dim idRol As Integer
        If Me.tbxUsuarioModTelefono.Text = "" Then
            telefono = 0
        End If
        If Me.tbxUsuarioModIdRol.Text = "" Then
            idRol = 0
        End If
        _miCampeonato.actualizarUsuario(tbxUsuarioModNIF.Text, tbxUsuarioModNombre.Text, _
                                  tbxUsuarioModApellidos.Text, telefono, tbxUsuarioModUsuario.Text, _
                                  tbxUsuarioModConstraseña.Text, idRol, CInt(Me._idUsuarioAModificar))
        Me.Close()
    End Sub


    Private Sub btnModUsuarioBorrar_Click(sender As Object, e As EventArgs) Handles btnModUsuarioBorrar.Click
        Me.Close()
    End Sub
End Class